   6 .
   8 .
  10 CLEAR ;NT=0;BC=7;FC=0;&(9)=125
  11 &(10)=176
  20 PRINT "  L&M SOFTWARE LIGHT SHOW
  30 PRINT "KEY▼
  40 PRINT "   1 RIGHT CHAN. DISPLAY
  50 PRINT "   2 LEFT CHAN. DISPLAY
  60 PRINT "   3 STEREO DISPLAY
  70 PRINT "   4 DISCO STROBE
  80 PRINT "   5 COLOR SQUARES
  90 PRINT "   6 SLIDE RULE
 100 PRINT "   7 STEREO GRAPHICS
 110 PRINT "   8 STEREO BOX TOPS
 120 PRINT "   9 SPACE DIAMOND
 130 PRINT "   0 RETURNS MENU
 140 FOR A=0TO 99;IF &(22)=16GOTO 10
 150 IF &(23)=8GOSUB 1000
 160 IF &(22)=8GOSUB 2000
 170 IF &(21)=8GOSUB 3000
 180 IF &(23)=4GOSUB 4000
 190 IF &(22)=4GOSUB 5000
 200 IF &(21)=4GOSUB 6000
 210 IF &(23)=2GOSUB 7000
 220 IF &(22)=2GOSUB 8000
 230 IF &(21)=2GOSUB 9000
 240 NEXT A;GOTO 10
1000 CLEAR ;NT=0;PRINT "        RIGHT CHANNEL";FOR X=0TO 25;NEXT X;CLEAR 
1010 BC=&(29)+1
1020 IF &(22)=16GOTO 10
1040 GOTO 1010
2000 CLEAR ;NT=0;PRINT "        LEFT CHANNEL";FOR X=0TO 25;NEXT X;CLEAR 
2010 BC=&(31)+1
2020 IF &(22)=16GOTO 10
2040 GOTO 2010
3000 CLEAR ;NT=0;&(9)=20;PRINT "  L                   R
3010 B=KN(4)+136;A=KN(2)+136
3020 IF A<25A=0
3030 IF B<25B=0
3040 BC=B;&(0)=A;&(1)=A
3050 IF &(22)=16GOTO 10
3060 GOTO 3010
4000 CLEAR ;NT=0;FOR X=0TO 5;BC=7;PRINT "        DISCO STROBE ";BC=0;CLEAR ;NEXT X
4010 A=KN(4)+135
4020 BC=A;BC=A
4030 BC=0;BC=0
4040 IF &(22)=16GOTO 10
4050 GOTO 4010
5000 CLEAR ;NT=0;B=150;C=80;FOR A=1TO 10;BOX 0,0,B,C,3;B=B-15;C=C-8;NEXT A
5005 BC=0
5010 A=KN(2)+136;IF A<25A=0
5015 IF &(22)=16GOTO 10
5020 BC=A;IF A>0FC=A+90
5030 GOTO 5010
6000 CLEAR ;PRINT "       SLIDE RULE
6005 FOR O=0TO 100
6010 NEXT O
6020 CLEAR ;NT=0;&(10)=0;&(9)=29;&(0)=163;&(1)=163;&(3)=80;&(2)=80;BC=163
6030 A=-75;B=31;C=10
6040 FOR X=0TO 7;BOX A,B,C,9,1
6050 A=A+11;B=B-10;C=C+20;NEXT X
6060 &(10)=KN(2)+128
6070 IF &(22)=16GOTO 10
6080 GOTO 6060
7000 CLEAR ;NT=0;BC=120;FC=7;PRINT " ERACE CLEARS THIS PROGRAM
7002 FOR W=0TO 500;NEXT W;CLEAR 
7010 LINE &(29),&(31),3
7020 IF &(22)=16GOTO 10
7030 IF &(21)=16CLEAR 
7040 GOTO 7010
8000 CLEAR ;BOX 0,0,80,80,3
8005 &(0)=80;&(1)=80
8010 &(9)=&(29);BC=&(29)
8020 &(10)=&(31)-75;FC=&(31)
8030 IF &(22)=16GOTO 10
8040 GOTO 8010
9000 CLEAR ;NT=0;PRINT " ERASE CLEARS THIS PROGRAM
9020 FOR T=0TO 500;NEXT T;CLEAR ;B=259;C=3
9040 BC=&(29)+1;FC=BC+90
9045 IF &(22)=16GOTO 10
9047 IF &(21)=16CLEAR 
9050 XY=10240;LINE BC,B,3;XY=-10240;LINE BC,B,3;GOTO 9040
>:RETURN ;RUN 
